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N 1 
vOL=000 sere ee erent evens BrSEp=19be 08:50:51 ESSYSRcHSVSScuevicman:1 = 88" 


TITLE SYSSCHEVT = SYSTEM SERVICES TO SCHED VENT 
"IDENT *yOus000! £ EDULE EVENTS 


. 
FERRARA AAA AERA RAE REET EAAAAAAAAEAEEAEAAREARHEATEARe eee Keeeeeee eee ee 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


ED UNDER A LICENSE AND MAY BE USED AND COPIED 
THE MS OF SUCH LICENSE AND WITH THE 
OPYRIGHT NOTICE. THIS SOFTWARE OR R 


* 
*® & 
*® @ 
** © 
*® e 
*® ® 
*® ft 
**® 7 
*® 7 
*® 0 & 
;* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. * 
*® * 
*?® & 
;* AND BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
;* CORPORATION. * 
*® mw 
. DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
2 ® 
*® es 
** * 
*® * 


te THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
SHOULD NOT 
: IBIL 

t® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


(RE RARASAASLASALASALALSALASASSR EASA SESE AS ERE R ERE RARER ARR REAR E SERS RR ESSA SY 


D. N. CUTLER 4-OCT-76 


V02-004 MLJ41905 Martin L. Jack 31-Jan-1982 
Record in TQE whether the expiration time was specified as an 
absolute or delta time. This now affects processing in the 
SSETTIM service. 

03 R 


- I, HUSTVEDT 18-OCT-1979 
PCB 


R1HO033 : 
MOVE TQCNT FROM TO JIB. 
02 RIH23909 R. I. HUSTVEDT 14-MAY-1979 


Remove superfluous branch after SCHSCLREF due to change in 
interface to SCHSCLREF. 
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SACBDEF DEFINE ACB OFFSETS 

SIPLDEF DEFINE INTERRUPT PRIORITY LEVELS 
SJIBDEF sDEFINE JIB OFFSETS 

SPCBDEF : DEFINE OFFSETS 

SPROEF sDEFINE PROCESSOR REGISTERS 
SPSLDEF ;DEFINE PROCESSOR STATUS FIELDS 
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vod eit 1 86: 30: 9 SYS.S RCISYSSCMEVT MAR: 1 ws d 
58 SRSNDEF :DEFINE RESOURCE WAIT NUMBERS 
SSSDEF [DEFINE SYSTEM STATUS VALUES 
0 0 STQEDEF SDEFINE TQE OFFSETS 
0 62 ;: 
0 63 ; LOCAL SYMBOLS 
ee ARGUMENT LIST OFFSET DEFINITIONS FOR SCHEDULE WAKEUP 
0 67 
0004 00 68 PIDADR=4 ZADDRESS OF PROCESS IDENTIFICATION 
1990000 8 009 é LOGNAM=8 TADDRESS OF PROCESS NAME STRING DESCRIPTOR 
0 WKDAYTIM=12 SADDRESS OF DELTA TIME TO EXPIRATION 
0000001 900 ft WKREPTIM=16 SADDRESS OF DELTA TIME TO REPEAT EXPIRATION 
00 73; 
0000 i > ARGUMENT LIST OFFSET DEFINITIONS FOR SET TIMER 
9000 76° 
00000004 0000 77 EFN=4 :EVENT FLAG NUMBER 
00000008 0000 #78 TMDAYTIM=8 SADDRESS OF DELTA TIME TO EXPIRATION 
0000000C 464 79 ASTADR=12 sADDRESS OF AST ROUTINE 
00000010 0000 80 REQIDT=16 SREQUEST IDENTIFICAT 
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S .SBTTL SCHEDULE WAKEUP 
> EXESSCHDWK = SCHEDULE WAKEUP 


R4 = CURRENT PROCESS PCB ADDRESS. 
OUTPUTS: 
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4 
5 
§ THIS SERVICE PROVIDES THE CAPABILITY TO SCHEDULE A WAKE UP FOR A PROCESS 
THAT WILL OCCUR AT A SPECIFIED TIME AND OPTIONALLY BE REPEATED AT A FIXED 
3 INTERVAL. 
. , INPUTS: 
0 ¢ PIDADR(AP) = ADDRESS OF PROCESS IDENTIFICATION. 
LOGNAM(AP) = ADDRESS OF PROCESS NAME STRING DESCRIPTOR. 
4 WKDAYTIM(CAP) = ADDRESS OF DELTA TIME TO EXPIRATION. 
5 5 WKREPTIMCAP) = ADDRESS OF DELTA TIME TO REPEAT EXPIRATION. 
0 $ 
0 
0 
0 


ooooo 


RO LOW BIT CLEAR INDICATES FAILURE TO SCHEDULE WAKE UP REQUEST. 


0 
6 
0000 10 RO = SS$_ACCVIO = EXPIRATION TIME, DELTA REPEAT TIME PROCESS 
0000 10 NAME STRING, OR PROCESS NAME STRING DESCRIPTOR 
0000 10 CANNOT BE READ BY CALLING ACCESS MODE, OR PROCESS 
0000 10 IDENTIFICATION CANNOT BE WRITTEN BY CALLING ACCESS 
9000 10 _— 
0000 10 RO = SS$_EXQUOTA - PROCESS HAS INSUFFICIENT AST QUOTA 
9000 REMAINING TO SCHEDULE WAKE U 
0000 «(11 RO = SS$ INSEMEN - SUFFICIENT SYSTEM DYNAMIC MEMORY DOES NOT 
0006 1 EXIST TO ALLOCATE TIME QUEUE ENTRY AND IMPLICIT 
900 RESOURCE WAIT IS NOT ENABLED. 
000 11 RO = SS$_IVLOGNAM - ZERO OR GREATER THAN MAXIMUM LENGTH 
9000 PROCESS NAME STRING SPECIFIED. 
00 1 RO = SS$_IVTIME - POSITIVE DELTA REPEAT TIME SPECIFIED. 
000 3 RO = SS$_NONEXPR = NONEXISTENT PROCESS OR INVALID PROCESS 
00 oS DENTIFICATION SPECIFIED. 
$0 RO = SS$_NOPRIV = PROCESS DOES NOT HAVE PRIVILEGE TO WAKE 


SPECIFIED PROCESS. 
RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
RO = SS$_NORMAL - NORMAL COMPLETION. 
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0 o 
0 
0 .ENABL LSB 
O3FC “ENTRY EXESSCHDUK., “M<R2,R3,R4,R5,R6,R7,RB_R 
FFFB" 30 BSBW © EXESNAMPID GET paket SROcESS ID 
SETIPL 40 eat Low INTERRUPTS 
5650 €9 BLBC 208 [IF LBC INVALID ARGUMENT 
59 1 po MOVL RI,R [SET TARGET PROCESS ID 
8 02 9A E MOVZBL #TGESC_WKSNGL RB [SET SINGLE SHOT WAKEUP REQUEST 
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1 ATER THAN 1 
#10%1000#10,R5 AN TOMS? oes 
#10*1000*10,R 
W*SCHSGL_CURPCB,R4 


BUIL 
PCBSW_ASTCNT(R4) 
50$ 


OMS 
XPIRATION TIME 
B ADDRESS 


;IF LEQ YES 
;ALLOCATE AND F 


a(SP)+ ; 
PCBSW_ASTCNT(R4) UPDATE AVAILAB 


Ok kk kt kk 
PREPPED & PPP PEE 
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STEM 
TIMER 


we 


| 
. .SBTTL SET TIMER | 
; EXESSETIMR - SET TIMER | 

} 
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; THIS SERVICE PROVIDES THE CAPABILITY TO SCHEDULE THE SETTING OF AN EVENT 
; FLAG AND DECLARATION OF AN AST TO OCCUR AT A SPECIFIED TIME. 
INFUTS 
EFNCAP) = EVENT FLAG NUMBER, 
pint Bh po yf = ADDRESS OF DELTA TIME TO EXPIRATION. 
TADR(AP) = ADDRESS OF AST ROUTINE. 
REGIDT CAP) = REQUEST IDENTIFICATION. 
R4 = CURRENT PROCESS PCB ADDRESS. 
; OUTPUTS: 


RO LOW BIT CLEAR INDICATES FAILURE TO SET TIMER. 
RO = SSS acey20 ° ae TIME CANNOT BE READ BY CALLING 


DOOQCCCOCOCOCOOOOOOOOOOCOO 
PAEAAAAAAAAAAAAAAAO 


00 ACCE 
0 
0 RO = SS$_EXQUOTA = INSUFFICIENT AST OR TIMER QUOTA REMAINING 
0 AND IMPLICIT RESOURCE WAIT IS NOT ENABLED. 
0 RO = 
RO = SS$ Sgt - SUFFICIENT SYSTEM DYNAMIC MEMORY DOES NOT 


EXIST TO ALLOCATE TIME QUEUE ENTRY AND IMPLICIT 
RESOURCE WAIT IS NOT ENABLED. 


0 = SS$_UNASEFC = SPECIFIED EVENT FLAG CLUSTER IS NOT 
ASSIGNED. 


bb eb tb bb a a tb 2 a > a a ob tn a 2 tt tt 


DOOOCOCOOWOO0 OOOO OO OW 0000009090909 SINISE NS INI OOO 
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: RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
+ RO = SS$_NORMAL - NORMAL COMPLETION. 
4 
5 .ENTRY EXESSETIMR, “M<R2,R3,R4,R5,R6,R7,RB,RI,R10,R11> 
57 OB AC dO c MOVL TRDAYTINCAPD R7 3GET ADDRESS OF PETA A EXPIRATION TIME 
58 00 MOVZBL #TQESC_T CRB ET sti: SHOT TIMER REQUEST 
5 60 AG 60 (0068 8 MOVL PCBSL PIDine “Rd :SET TARGET PROCESS ID 
3 AC A 006F MOVZBL EFNC(AP),R3 ‘GET EVENT FLAG ER 
5 pp 10 PUSHL [SAVE EVENT FLAG NUMBER 
FFBB 1 BSBW © SCHSCLREF [CLEAR SPECIFIED EVENT FL 
6F 1 BSBB = BUILDTQE :CHECK ACCESSIBILITY OF DAY TIME 
58 10 aC OD A 21 MOVL REQIDT(AP),R11 [GET REQUEST IDENTIFICATI 
A 0c aC p 14 MOVL ASTADR(AP)<R10 [GET ADDRESS OF AST ROUTINE 
0 15 BEQL 308 TIF EQL NONE SPECIFIED 
38 AG OB 1 TST BCBSY_ASTCNT(R4) “AST QUEUE ENTRY QUOTA EXCEEDED? 
3a Cis B78 BLEQ s1F LEQ YES 
89 18 30$:  SETIPL iP $_SY NCH SRAISE IPL TO SYNCH LEVEL 
51 0080 (46 OD BC MOVL  PCBSL~JIB(R4),R1 'GET ADDRESS OF JIB 
4 Al : 1 30 TST yiBSu_ TQCNT(R at) [ANY TIMER QUOTA REMAINING? 
94 BEQL [IF EQL NO 


| 
| 
| 
SSS_ILLEFC = ILLEGAL EVENT FLAG CLUSTER SPECIFIED. 
| 
| 
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LOWER IPL TO ASTDEL LEVEL 
at or abor FILL IN TIME QUEUE ENTRY 


RESS 
Upp pate Aa ABLE TIME QUEUE ENTRIES 


RVMOD #PSLSS pms ; INSERT REQUEST ACCESS 
ST(RS ROUT INE 


RMOD (R5) 
ee Seri AST 
ats eras AST ei ENTRIES 


AST ARAMET ER/REQUE ST IDENTIFICATION 
iSeT EVENT FLAG NUMB 


SET QUOTA EXCEEDED 
ALLOW INTERRUPTS 


ee efisias) 2 -50$ ;I1F SET 
aciaRSNS ASTUAI TSS STHSGL_RES 
B(FP),A FRESTO 


4 id Hr peice wait DISABLED 
ESOURCE NUMBER 
POINTER 

ANGE MODE ae 


F 
ON Mem LIST 
CHSWAIT WAIT PROCESS IN ORIGINAL ACCESS MODE 
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-SBTTL BUILD PROTOTYPE TIME QUEUE ENTRY 


UBROUTINE TO CHECK ARGUMENTS, ALLOCATE TIME QUEUE ENTRY, AND FILL IN 
ROTOTYPE TIME QUEUE ENTRY. 


;BUILD TIME QUEUE ENTRY 
#SS$ ACCVIO.RO SASSUME ACCESS VIOLATION 
#8, (R7) 408 CAN EXPIRATION TIME BE READ? 
#IPL$_ASTDEL TRAISE TO AST DELIVERY LEVEL 
? *CHECK QUOTAS 
EXESALLOCTQE TALLOCATE TIME QUEUE ENTRY 
40 TIF LBC ALLOCATION FAILURE 
R TOESQ DELTA(R2) t INSERT REPEAT TIME 
#TOESM_ABSOLUTE ,R8, TOESB_ROTYPE (Re) 
"SET REQUEST TYPE ume absolute 


TQESL_PID(R2) 


R9 f INS RGET PR 
PCBSL PIB(R4) , TOESL_ROPIDCR 


TA 6c 
INSERT REQUE 


ERT D 
, R PROCESS ID 
),RO MAKE SURE EXPIRATION TIME IS IN MEMORY 
IPL$_SYNCH EQ IPL$_TIMER 
#IPL$_SY 


$_SYNCH ;SYNCHRONIZE ACCESS TO SYSTEM DATA BASE 
W*EXESGQ_SYSTIME,R8 :GET CURRENT ABSOLUTE TIME 
RO,RO 7GET EXPIRATION TIME 
1 F GEQ ALREADY ABSOLUTE TIME 
#TQESM_ABSOLUTE ,TQESB_ROTYPE(R2) ; Indicate not absolute 
R1,R1 ;NEGATE EXPIRATION TIME 


R ,RO 2 

#0,R1 3 

ae eh ;CALCULATE REAL EXPIRATION TIME 
40,85, TQESB_ROTYPE(R2) ,ATOESC WKREPT ;REPEAT WAKEUP REQUEST? 
RO.RS [CALCULATE NEXT EXPIRATION TIME 
RO_R6 [CURRENT TIME AFTER NEXT TIME? 

g0$ :IF LSSU NO 

0$ [IF GTRU YES 

RB_RS [CURRENT TIME AFTER NEXT TIME? 

30 tIF GIRU YES 

RS SCOPY ADDRESS OF TIME QUEUE ENTRY 

a(§p)+ [FILL IN REQUEST DEPENDENT PARAMETERS 
EXESINST INQ SINSERT ENTRY IN TIME QUEUE 

é ; “NORMAL , RO [SET NORMAL COMPLETION STATUS 

R2,RO SSET ADDRESS OF TIME QUEUE ENTRY 

EXE SDEANONPAGED [DEALLOCATE TIME QUEUE ENTRY 
#SS$_IVTIME.RO [SET INVALID TIME COMPLETION STATUS 
é TALLOW INTERRUPTS 


2a 


SYSSCHEVT 
Symbol table 


ACBSM_QUOTA 
ASTADR 


PEBEA ASTCNT 
PIDADR 


WKREPTIM 
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! Psect synopsis ! 


pee ner een ee eee mw ag 


PSECT name Allocation PSECT No. Attributes 


> 08 ca 000000 « 0.) 00 ¢ 9.) NOPIC  USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
BLANK: 000168 ¢ 360:) 7) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
$aBSS ( ~ 0:) 02 ¢ 22) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 


1 ¢ 


donee mewn ene wet e me ene ce en} 


! Performance indicators ! 


gee eeoeeeeeeoeeeeecoeooes$} 


Conmand processing 108 : E u 
0 00: 


aramel table sere 0 
able sor 
7" 0: 
7 
:26 


ass 

Symbol table output 0 
Psect synopsis output 1 0 
Cross-reference output 8 88: 
Assembler run totals 48 0 


: 


i 


oooocoe 


Phase Page faults CPU Time Elapsed Time 


The_ working set Limit was 1200 pages. 

43678 bytes (86 pages) of virtual memory were used to buffer the intermediate code. 

There were 50 pages of symbol table space allocated to hold 803 non-local and 11 local symbols. 
source Lines were read in Pass 1, producing 18 object records in Pass 2. 

19 pages of virtual memory were used to define 18 macros. 


: 
pee eee ee ee eee Bee weecoee+ 


Macro Library name Macros defined 


“BSS RSDUACS: ESVS-08J21 18-8; 1 

$255$D0UA28: (SYSLIBISTARLET.MLB;2 

TOTALS (all Libraries) 15 
893 GETS were required to define 15 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:SYSSCHEVT/OBJ=OBJ$:SYSSCHEVT MSRC$:SYSSCHEVT/UPDATE=(ENHS: SYSSCHEVT) ¢EXECML$/LIB 
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